PCGUIA 10/PC Guia 10.iso/makers/main.dir/00092_Script_92

Text File | 1996-03-11 | 2KB | 74 lines

on startMovie
  global TheSprite,CurrSound,itemDel,Status,ToGo,PrevMovie

  if PrevMovie <> "body" or PrevMovie <> "power" then set PrevMovie = "body"


  put EMPTY into CurrSound
  put 1 into TheSprite
  set the volume of sprite 2 to 255
  set the volume of sprite 1 to 255

  set Status = []
  if the machineType = 256 then
    put "\" into itemDel
  else
    put ":" into itemDel
  end if
  set the itemDelimiter to ","
  put "open" into ToGo
end

on rollOvers
  global TheSprite

  if rollOver(11) then
    put 3 into TheSprite
    go frame "power"
  else if rollOver(12) then
    put 4 into TheSprite
    go frame "body"
  else if rollOver(9) then
    put 9 into TheSprite
    go frame "search"
  else if the mouseCast = 135 then
    changeCast 135 , 18
  else if the mouseCast = 137 then
    changeCast 137 , 19
  end if
end

on changeCast theRoll,theSprite
  if not(the name of cast the castNum of sprite theSprite contains "down") then
    set the castNum of sprite theSprite to (the castNum of sprite theSprite) - 1
    updatestage
    repeat while the mouseCast = theRoll - 1 and not the mouseDown
    end repeat
    set the castNum of sprite theSprite to (the castNum of sprite theSprite) + 1
  end if
end

on disposeRearWindow
  global rwObj
  if the machineType <> 256 then
    if objectP( rwObj ) then rwObj( mDispose )
  end if
end

on stopMovie

  puppetSound 0
  puppetSound 2, 0

  sound stop 1
  sound stop 2
  sound stop 3
  sound stop 4

  puppetSound 0
  puppetSound 2, 0
  unLoadCast 114
  updateStage
  updateStage

end